(widget-choose): Call display-popup-menus-p instead

of display-mouse-p.

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 52851524b8a1439006b1564e6ac93f403d053b52..34d9fb75a9dceca55ebd75cbd60bfb49d525f38c 100644 (file)
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -204,7 +204,7 @@ mouse event, and the number of elements in items is less than
 `widget-menu-max-size', a popup menu will be used, otherwise the
 minibuffer."
   (cond ((and (< (length items) widget-menu-max-size)
-             event (display-mouse-p))
+             event (display-popup-menus-p))
         ;; Mouse click.
         (x-popup-menu event
                       (list title (cons "" items))))